home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / mmdf / mmdf-IIb.43 / src / pop / strindex.c < prev    next >
Encoding:
Text File  |  1986-04-23  |  223 b   |  16 lines
  1. /* strindex.c - "unsigned" lexical index */
  2.  
  3.  
  4. int  stringdex (p1, p2)
  5. register char  *p1,
  6.                *p2;
  7. {
  8.     register char  *p;
  9.  
  10.     for (p = p2; *p; p++)
  11.     if (uprf (p, p1))
  12.         return (p - p2);
  13.  
  14.     return (-1);
  15. }
  16.